home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / amicad / arexx_english / lupe.amicad < prev    next >
Text File  |  1999-12-06  |  424b  |  23 lines
  1. /* Lupe.AmiCAD, Chez Corbin, 18 Janvier 1998, version 1.00e */
  2.  
  3. port=address()
  4. address command
  5. 'run' "c:Lupe F R GS JAS"
  6. do i=1 to 2000
  7.     i=i+1
  8. end
  9. address(port)
  10. 'STOFRONT'
  11. exit
  12.  
  13. syntax:
  14. address (port)
  15. erreur=RC
  16. 'MESSAGE("Script Lupe.AmiCAD :"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  17. exit
  18.  
  19. error:
  20. address (port)
  21. 'MESSAGE("Script Lupe.AmiCAD :"+CHR(10)+"Error in line 'SIGL'")'
  22. exit
  23.